home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 June / PCWorld_2007-06_cd.bin / v cisle / pcwsicons / pcwSIcons2.exe / {app} / SaveIcons.vbs < prev   
Text File  |  2006-11-21  |  913b  |  31 lines
  1. '==========================================================================
  2. '
  3. ' VBScript Source File 
  4. '
  5. ' NAME: SaveDemo.VBS
  6. '
  7. ' AUTHOR: Thorsten Eggeling
  8. ' DATE  : 02.2001
  9. '
  10. ' COMMENT: Sichern der Desktop-Icon-Positionen
  11. '
  12. ' n÷tige Anpassungen: IniFileName, [Resolution]
  13. '                     
  14. '==========================================================================
  15. 'IniFileName=Mid(WScript.ScriptFullName, 1, InStr(WScript.ScriptFullName, WScript.ScriptName)-1) & "SRIcons.INI"
  16.  
  17. Set mySIcon = CreateObject("pcwSIcon.pcwSIcon")
  18. Set WshShell = WScript.CreateObject("WScript.Shell")
  19. Set WshSysEnv = WshShell.Environment("Process")
  20. appDataPath = WshSysEnv("APPDATA") 
  21.  
  22. 'aktuelles Layout speichern
  23. MsgBox("Layout speichern.")
  24. With mySIcon
  25. .IniFileName=appDataPath+"\pcwSIcon.ini"
  26. 'bei Bedarf lΣ▀t sich hier ein eigener Layout-Name festlegen
  27. '.Resolution="myDesktop"
  28. .Save
  29. End With
  30.  
  31.